home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / Shared.Cst / 00143_qTHalt.ls < prev    next >
Encoding:
Text File  |  1999-10-10  |  1.0 KB  |  39 lines
  1. on qTPlay
  2.   global DEBUG, gPcVidSprite
  3.   
  4.   if DEBUG then put "playMovie"
  5.   
  6.   -- attempt to keep the Win95 sound from cutting out - 
  7.   --  wait for the slow machines, then stop any other
  8.   --  sound from playing , and return sound control 
  9.   --  to the score
  10.   delay 60
  11.   puppetSound 0
  12.   
  13.   set the visible of sprite gPcVidSprite to TRUE
  14.   
  15.   set the movieRate of sprite gPcVidSprite to 1
  16. end qTPlay
  17.  
  18. on qTPause
  19.   global DEBUG, gPcVidSprite
  20.   if DEBUG then put "pauseMovie"
  21.   set the movieRate of sprite gPcVidSprite to 0
  22. end qTPause
  23.  
  24. on qTHalt
  25.   global qtChan
  26.   --stop the qt movie, if there is one
  27.   set qtCast = the castNum of sprite qtChan
  28.   if ( not ( qtCast = 0 ) ) then
  29.     if ( the castType of cast qtCast = #digitalVideo ) then
  30.       if ( not ( the movieRate of sprite qtChan = 0 ) ) then
  31.         set the movieRate of sprite qtChan to 0
  32.         -- make it invisible
  33.         --set the visible of sprite qtChan to FALSE
  34.         updateStage
  35.       end if -- movieRate
  36.     end if -- castType
  37.   end if -- castNum
  38. end qTHalt
  39.